(math-add-bignum): Replace number by constant.

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 78d6231cb158ca28274b6525d7a9b1a4f45829b4..d81c1070b9f3fc19a7d522030b6e31d2dbbca38e 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2780,7 +2780,7 @@ largest Emacs integer.")
                      (progn
                        (setcar aa (1+ sum))
                        (setq carry nil))
-                   (setcar aa (+ sum -999)))
+                   (setcar aa (- sum (1- math-bignum-digit-size))))
                (if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size)
                    (setcar aa sum)
                  (setcar aa (- sum math-bignum-digit-size))
@@ -2790,7 +2790,7 @@ largest Emacs integer.")
            (if carry
                (if b
                    (nconc a (math-add-bignum b '(1)))
-                 (while (eq (car aa) 999)
+                 (while (eq (car aa) (1- math-bignum-digit-size))
                    (setcar aa 0)
                    (setq aa (cdr aa)))
                  (if aa